home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
exampl2r
/
frmtest.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-08-18
|
2KB
|
75 lines
VERSION 5.00
Begin VB.Form frmTest
Caption = "Clock"
ClientHeight = 720
ClientLeft = 6900
ClientTop = -720
ClientWidth = 1560
ControlBox = 0 'False
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 720
ScaleWidth = 1560
StartUpPosition = 3 'Windows Default
Begin VB.Timer tmrUpdateTime
Interval = 500
Left = 0
Top = -120
End
Begin VB.CommandButton cmdExit
Caption = "E&xit"
Height = 255
Left = 0
TabIndex = 0
Top = 480
Width = 1575
End
Begin VB.Label lblTime
Alignment = 2 'Center
Caption = "lblTime"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 0
TabIndex = 1
Top = 120
Width = 1455
End
Begin TaskBar.Form_TaskBar Form_TaskBar
Left = -480
Top = 0
_ExtentX = 1296
_ExtentY = 450
NumSteps = 6
HangDown = 4
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_TaskBar_StartOpenUp()
tmrUpdateTime.Enabled = True
tmrUpdateTime.Interval = 1000
End Sub
Private Sub Form_TaskBar_EndCloseUp()
tmrUpdateTime.Enabled = False
End Sub
Private Sub tmrUpdateTime_Timer()
lblTime.Caption = Format(Now, "long time")
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub